home *** CD-ROM | disk | FTP | other *** search
/ Tux Racer / Tux Racer.iso / program files / Sunspire Studios / Tux Racer / courses / common / sounds.tcl < prev    next >
Encoding:
Text File  |  2001-08-21  |  322 b   |  21 lines

  1. #
  2. # Set Up Sounds
  3. #
  4.  
  5. set old_dir [pwd]
  6.  
  7. tux_goto_data_dir
  8.  
  9. objcreate {s_container} {:sounds}
  10.  
  11. # Load sounds in courses/common/sound3d
  12. TRSounds::Load courses/common/sound3d sound3d
  13.  
  14. #----Load sounds for cup
  15. if { [file exists $cup_dir/sounds.tcl] } {
  16.     cd $cup_dir
  17.     source sounds.tcl
  18. }
  19.  
  20. cd $old_dir
  21.